home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / kalender prg. 6 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  504b  |  24 lines
  1. 10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
  2. 20 T=VAL(MID$(D$,1,2))
  3. 30 M=VAL(MID$(D$,3,2))
  4. 40 J=VAL(MID$(D$,5))
  5. 50 GOSUB 1000
  6. 60 UNT=JD-723121+2
  7. 70 TAG=UNT-INT(UNT/7)*7
  8. 80 TAG$(0)="SONNTAG"
  9. 90 TAG$(1)="MONTAG"
  10. 100 TAG$(2)="DIENSTAG"
  11. 110 TAG$(3)="MITTWOCH"
  12. 120 TAG$(4)="DONNERSTAG"
  13. 130 TAG$(5)="FREITAG"
  14. 140 TAG$(6)="SAMSTAG"
  15. 150 PRINT"WOCHENTAG: "TAG$(TAG)
  16. 160 END
  17. 1000 REM KALENDER -> JULIANISCH
  18. 1010 IF M>2 THEN M=M-3:GOTO 1030
  19. 1020 M=M+9:J=J-1
  20. 1030 JH=INT(J/100):JA=J-100*JH
  21. 1040 JD=INT(146097*JH/4)+INT(1461*JA/4)
  22. 1050 JD=JD+INT((153*M+2)/5)+T
  23. 1060 RETURN
  24.